home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / avm / prog / source / answervoice.avmsrc < prev    next >
Text File  |  1977-12-31  |  3KB  |  165 lines
  1. startrecord=true
  2. label=
  3. nodetype=7
  4. filename=avm:rexx/stdhead.avm
  5. nextactiontype=3
  6. nextactionaction=
  7. endrecord=true
  8. startrecord=true
  9. label=answervoiceStart
  10. nodetype=8
  11. line1=parse arg servername faxscript datascript distinctivering 'CID$' acidname '$' acidnumber '$'
  12. line2=call setclip(address() || 'FAXSCRIPT', faxscript)
  13. line3=call setclip(address() || 'DATASCRIPT', datascript)
  14. line4=call setclip(address() || 'CIDNAME', acidname)
  15. line5=call setclip(address() || 'CIDNUMBER', acidnumber)
  16. line6=
  17. line7=
  18. line8=
  19. line9=
  20. line10=
  21. nextactiontype=3
  22. nextactionaction=
  23. endrecord=true
  24. startrecord=true
  25. label=
  26. nodetype=8
  27. line1=introtype = getclip('AVMIntroductionType')
  28. line2=if upper(introtype) = 'DAYOFWEEK' then
  29. line3=  intronumber = dayofweek2num()
  30. line4=else if upper(introtype) = 'TIMEOFDAY' then
  31. line5=  intronumber = timeofday2num()
  32. line6=else if upper(introtype) = 'RANDOM' then
  33. line7=  intronumber = random(1,7, time('s'))
  34. line8=else if introtype = "" then
  35. line9=  intronumber = 1
  36. line10=else intronumber = introtype
  37. nextactiontype=2
  38. nextactionaction=call playAVoiceErrorOK('avm:voices/intro'||intronumber)
  39. endrecord=true
  40. startrecord=true
  41. label=startup
  42. nodetype=8
  43. line1=
  44. line2=simple = getclip('AVMSimpleAnsweringMachine')
  45. line3=if upper(simple) = 'YES' then call simplestartup
  46. line4=else call multistartup
  47. line5=
  48. line6=
  49. line7=
  50. line8=
  51. line9=
  52. line10=
  53. nextactiontype=2
  54. nextactionaction=exit
  55. endrecord=true
  56. startrecord=true
  57. label=answervoiceDone
  58. nodetype=1
  59. filename='avm:voices/Goodbye'
  60. comment=Thanks for calling.  Bye now!
  61. keyactiontype=3
  62. keyactionaction=
  63. faxactiontype=0
  64. faxactionaction=stdfax
  65. dataactiontype=0
  66. dataactionaction=stddata
  67. busyactiontype=0
  68. busyactionaction=stdbusy
  69. abortactiontype=0
  70. abortactionaction=stdabort
  71. erroractiontype=0
  72. erroractionaction=stderror
  73. nextactiontype=2
  74. nextactionaction=exit
  75. endrecord=true
  76. startrecord=true
  77. label=
  78. nodetype=7
  79. filename=avm:rexx/simplestdtail.avm
  80. nextactiontype=3
  81. nextactionaction=
  82. endrecord=true
  83. startrecord=true
  84. label=
  85. nodetype=7
  86. filename=avm:rexx/startup.avm
  87. nextactiontype=3
  88. nextactionaction=
  89. endrecord=true
  90. startrecord=true
  91. label=
  92. nodetype=7
  93. filename=avm:rexx/simplestartup.avm
  94. nextactiontype=3
  95. nextactionaction=
  96. endrecord=true
  97. startrecord=true
  98. label=timeOfDay2num
  99. nodetype=8
  100. line1=currentHours = time('hours')
  101. line2=if currentHours < 12 then ret = 1
  102. line3=else if currentHours < 18 then ret = 2
  103. line4=else ret = 3
  104. line5=
  105. line6=
  106. line7=
  107. line8=
  108. line9=
  109. line10=
  110. nextactiontype=2
  111. nextactionaction=return ret
  112. endrecord=true
  113. startrecord=true
  114. label=dayOfWeek2num
  115. nodetype=8
  116. line1=procedure
  117. line2=
  118. line3=day=upper(date('Weekday'))
  119. line4=d_.Monday=1;d_.Tuesday=2;d_.Wednesday=3
  120. line5=d_.Thursday=4;d_.Friday=5;d_.Saturday=6
  121. line6=d_.Sunday=7
  122. line7=
  123. line8=
  124. line9=
  125. line10=
  126. nextactiontype=2
  127. nextactionaction=return d_.day
  128. endrecord=true
  129. startrecord=true
  130. label=playAVoiceErrorOK
  131. nodetype=8
  132. line1=procedure
  133. line2=parse arg toPlay
  134. line3=
  135. line4=
  136. line5=
  137. line6=
  138. line7=
  139. line8=
  140. line9=
  141. line10=
  142. nextactiontype=3
  143. nextactionaction=
  144. endrecord=true
  145. startrecord=true
  146. label=
  147. nodetype=1
  148. filename=toPlay
  149. comment=
  150. keyactiontype=3
  151. keyactionaction=
  152. faxactiontype=0
  153. faxactionaction=stdfax
  154. dataactiontype=0
  155. dataactionaction=stddata
  156. busyactiontype=0
  157. busyactionaction=stdbusy
  158. abortactiontype=0
  159. abortactionaction=stdabort
  160. erroractiontype=3
  161. erroractionaction=
  162. nextactiontype=2
  163. nextactionaction=return
  164. endrecord=true
  165.